home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 2000 October / Software of the Month - Ultimate Collection Shareware 277.iso / pc / PROGRAMS / UTILITY / WINLINUX / DATA1.CAB / usr_-_Usr_Files / SBIN / SECURE-C.{1H < prev    next >
Text File  |  1999-09-17  |  2KB  |  112 lines
  1. #!/usr/local/bin/expect -f
  2. #
  3. # This  script was  written  by  Jim Isaacson  <jcisaac@crl.com>.  It is
  4. # designed to work  as a script to use the  SecureCARD(tm) device.  This
  5. # little device is mated with a central controller. The number displayed
  6. # on this card changes every so often and  you need to enter  the number
  7. # along with your user account name in order to gain access.  Since chat
  8. # is based upon fixed strings this procedure will not work with chat.
  9. #
  10. # It is included by permission. An excellent reference for the expect
  11. # program used by this script is in the book:
  12. #
  13. # "Exploring Expect"
  14. # by Don Libes
  15. # Published by O'Rielly and Associates
  16. #
  17.  
  18. send_user "hello, starting ppp\n"
  19.  
  20. system "stty 19200 -echoe -echo raw < /dev/ttyS3 > /dev/ttyS3"
  21.  
  22. #
  23. # These are the parameters for the program.
  24. #
  25. set user      Pxxxxxx
  26. set password  xxxxxxx 
  27. set modem     /dev/ttyS3
  28. set dialup    <put phone number here>
  29. set timeout   60
  30.  
  31. spawn -noecho -open [open $modem "r+"]
  32.  
  33. send "AT&F\r"
  34. expect "OK"
  35.  
  36. send "ATe0v1x4&c1q0&d2&c1s2=128s0=0DT $dialup\r"
  37. set timeout 15
  38. set counter 0
  39.  
  40. set still_connecting 1
  41.  
  42. expect {
  43.     -re ".*CONNECT.*\n" {
  44.         set timeout 5
  45.         set still_connecting 0
  46.         continue -expect
  47.     }
  48.     -re ".*CONNECT.*\r" {
  49.         set timeout 5
  50.         set still_connecting 0
  51.         continue -expect
  52.     }
  53.         -re ".*NO.*CARRIER" {
  54.         send_user "Failed to Connect, exiting...\n"
  55.         exit
  56.         }
  57.         -re ".*NO.*DIAL.*TONE" {
  58.         send_user "Failed to Connect, exiting...\n"
  59.         exit
  60.         }
  61.         -re ".*VOICE" {
  62.         send_user "Failed to Connect, exiting...\n"
  63.         exit
  64.         }
  65.     -re ".*sscode:.*\n" {
  66.         continue -expect
  67.     }
  68.     -re ".*sscode:" {
  69.                 set timeout -1
  70.         expect_user -re "(.*)\n"
  71.         send "$expect_out(1,string)\r"
  72.         set timeout 30
  73.         continue -expect
  74.     }
  75.     -re ".*Next.*:" {
  76.                 set timeout -1
  77.         expect_user -re "(.*)\n"
  78.         send "$expect_out(1,string)\r"
  79.         set timeout 30
  80.         continue -expect
  81.     }
  82.     -re "Your.*" {
  83.         send "\r"
  84.         continue -expect
  85.     }
  86.     -re ".*in:" {
  87.         send "$user\r"
  88.         continue -expect
  89.     }
  90.     -re ".*word:" {
  91.         send "$password\r"
  92.     }
  93.  
  94.     timeout {
  95.         if { $still_connecting > 0 } {
  96.             continue -expect 
  97.             }
  98.         set timeout 15
  99.         send "\r"
  100.         incr counter
  101.         if { $counter > 8 } {
  102.             send_user "Cannot Connect\n"
  103.             exit
  104.         } else {
  105.             continue -expect
  106.         }
  107.     }
  108. }
  109.  
  110. overlay -0 $spawn_id -1 $spawn_id pppd /dev/ttyS3 19200 192.111.187.215: \
  111.     crtscts modem defaultroute debug 
  112.